'Trustee Disclosure Submission Script
Option Strict Off
imports System
imports Humans=PHSRAG.Insight21.Humans
imports PHSRAG.Insight21.BusinessObjects
imports FormsManagement = PHSRAG.Insight21.FormsManagement
imports System.Collections
imports Utility=PHSRAG.Utility

module Script
    sub Main()
		dim questionnaireAnswer as FormsManagement.QuestionnaireAnswer = Nothing
		dim answers as ArrayList = Nothing
		dim isPrivate as boolean = false

		currentCOI.LoadQuestionnaireAnswers()
				
		'Other Activities
		currentCOI.UpdateOtherActivities()
		
   	End Sub
	
end module